﻿Public Class HocKyBUS
    Public Sub LoadCBX(ByVal cbx As ComboBox, ByVal sql As String)
        Dim HocKy_DAO As HocKyDAO = New HocKyDAO
        HocKy_DAO.LoadCombobox(cbx, sql)
    End Sub
    Public Sub LoadDGV(ByVal dgv As DataGridView, ByVal sql As String)
        Dim HocKy_DAO As HocKyDAO = New HocKyDAO
        HocKy_DAO.LoadGridView(dgv, sql)
    End Sub
    Public Function ThemHocKy(ByVal hkInsert As HocKyDTO) As Boolean
        Dim HocKy_DAO As HocKyDAO = New HocKyDAO
        Return HocKy_DAO.ThemHocKy(hkInsert)
    End Function
    Public Function XoaHocKy(ByVal id As String) As Boolean
        Dim HocKy_DAO As HocKyDAO = New HocKyDAO
        Return HocKy_DAO.XoaHocKy(id)
    End Function
    Public Function SuaHocKy(ByVal hkUpdate As HocKyDTO) As Boolean
        Dim HocKy_DAO As HocKyDAO = New HocKyDAO
        Return HocKy_DAO.SuaHocKy(hkUpdate)
    End Function
End Class
